(defun has-list (lst)
	(if (null lst)
		nil
		(if (listp (car lst))
			T
			(has-list (cdr lst)))))

(print (has-list '(a b c)))
(print (has-list '(a '(b c) d)))
